****
** Replication File:
**
** Who Supports QAnon? A Case Study in Political Extremism
**
** July 2019 Data
****

set more off

* Set working directory

* Open dataset
use "Clean Data, July 2019.dta"

********************************************************************************

****
** Reliability information in
** Appendix
****

* Conspiratorial thinking
alpha con1-con4
sum conthink

* Machiavellianism
alpha manip1-manip4
sum manipulate

* Narcissism
alpha attent1-attent4
sum narcissism

* Psychopathy
alpha insens1-insens4
sum sociopathy

* Dark triad
alpha manip1-manip4 attent1-attent4 insens1-insens4
sum triad

* Criminal activity
alpha beatup-hurtanimal
sum criminal

* Political violence
alpha vio1 vio2
sum violence

****
** Table A10
****

reg qanonft2 pid2 pidsq2 edu2 attend2 ///
	age2 income2 female black hispanic 
est sto mod1
reg qanonft2 conthink2 triad2 criminal2 violence2 pid2 pidsq2 ///
	edu2 attend2 age2 income2 female black hispanic 
est sto mod2

reg qanonft2 ideo2 ideosq2 edu2 attend2 ///
	age2 income2 female black hispanic 
est sto mod3
reg qanonft2 conthink2 triad2 criminal2 violence2 ideo2 ideosq2 ///
	edu2 attend2 age2 income2 female black hispanic 
est sto mod4

estout mod1 mod2 mod3 mod4, cells(b(star fmt(3)) se(par fmt(3))) ///
   legend label varlabels(_cons constant) stats(r2 N, fmt(3 0 1))	
	
estimates table mod1 mod2 mod3 mod4, ///
	b(%10.3f) se(%10.3f) stats(r2 N)   

putdocx begin
putdocx table tbl1 = etable, width(100%)
putdocx save reg2019.docx, replace	

clear

